Type employee    fname as string    lname as string    hired as date    files[3] as stringend type    Sub Main()	dim emps[3] as employee,emp as employee	emp.fname = "Jose L."	emp.lname = "Cuevas"		emp.files[0] = "applictionfrm.doc"	emp.files[1] = "resume.doc"	emp.files[2] = "recomendlt.doc"	msgbox(emp.files[2])	msgbox("Jose L. Cuevas=" & emp.fname & " " & emp.lname)	emps[0].fname = "Joe"	emps[0].hired = new date	emps[1].fname = "Lourdes"	msgbox(emps[1].fname & " hired in " & emps[0].hired.longdate & "," & emps[0].hired.longtime)end sub